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Abstract. We study the equational theory of Parigot's second-order A/i-calculus in con- 
nection with a call-by-name continuation-passing style (CPS) translation into a fragment 
of the second-order A-calculus. It is observed that the relational parametricity on the tar- 
get calculus induces a natural notion of equivalence on the A/i-terms. On the other hand, 
the unconstrained relational parametricity on the A/^-calculus turns out to be inconsis- 
tent. Following these facts, we propose to formulate the relational parametricity on the 
A/i-calculus in a constrained way, which might be called "focal parametricity" . 

Dedicated to Prof. Gordon Plotkin on the occasion of his sixtieth birthday 



The Xfi-calculus, introduced by Parigot has been one of the representative term 
calculi for classical natural deduction, and widely studied from various aspects. Although 
it still is an active research subject, it can be said that we have some reasonable un- 
derstanding of the first-order propositional A/u-calculus: we have good reduction theories, 
well-established CPS semantics and the corresponding operational semantics, and also some 
canonical equational theories enjoying semantic completeness jl61 1241 051 1361 139) . The last 
point cannot be overlooked, as such complete axiomatizations provide deep understand- 
ing of equivalences between proofs and also of the semantic structure behind the syntactic 
presentation. 

The second-order X^x-calculus (A/i2), again due to Parigot has been studied in depth 
as a calculus for second-order classical natural deduction. In particular, strong normaliza- 
tion results of A/Li2 and its extensions, e.g. with inductive types [U, have been a 
central research topic, because of the proof-theoretical importance of strong normalization. 
However, for A/i2, it seems that there are few attempts of giving an equational theory sup- 
ported by some fine semantic structure. This situation is rather frustrating, since without 
such equational and semantic accounts, we cannot discuss e.g. the correctness of the im- 
predicative encoding of the datatypes in A/i2. For the second-order A-calculus A2 (system 
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F) [SllSni) a subsystem of A/u2, there are several beautiful results on the relational para- 
metricity [HH and the universal properties of impredicative constructions ^ ^1 1^ 001 1^ , 
e.g. that jJiX.a = MX. {a X) — > X (where a covariant in X) gives an initial algebra of 
the functor AX. a in a suitable sense. We certainly wish to have such a story for A/i2 too. 

This work is an attempt to identify such an equational theory which is backed up by 
certain semantic structures. Specifically, we propose a relational parametricity principle 
which is sound and sufficiently powerful for deriving such equivalences on the A/i-terms. 

1.1. Parametric CPS semantics. We first consider the semantics of A/i2 given by a 
CPS-translation into a fragment of A2 — that of the second-order existential types BX.r, 
conjunction types ti A T2, and arrow types t R into a distinguished type R (this choice 
of the target calculus is due to a recent work of Fujita [Jj). The translation (— )° sends 
a type variable X to X, arrow type ai — > (T2 to [a^ R) A and the universal type 
yx.a to 3X.a° — while a term M : o" is sent to |Af] : a° ^ R. It can be considered as a 
natural extension of Streicher's call-by-name CPS translation [A<^ \ l,S9| HH] . It follows that 
this translation already gives a reasonable equational theory on A//2, in that it validates the 
standard /3ry-equalities^ . In fact, this is a consequence of a fibred version of the "category 
of continuations" construction ^1 EEl 1111 • 

However, this is just a starting point; we observe that, if some of the impredicative 
constructions in the target calculus satisfy certain universal properties (e.g. 3X.X is a 
terminal object) which follow from the relational parametricity, then so do the impredicative 
constructions in the source A/i2-calculus — but not quite in the way that we first might 
expect. For instance, the type ± = VX.X does not give an initial object (cf. [HZI) — instead 
it plays the role of the falsity type (or the "answer type"); in fact, we have a double-negation 
elimination from (u — > _L) — > _L to o" for any a which actually is an algebra of the double- 
negation monad ((— ) — > _L) — > ±. As another major example, VAT. (a X) X does 
not give an initial algebra of AAT.fT; it gives an initial algebra of AX. (a — > _L) — > ± — not 
with respect to all terms but to a certain class of terms (the "focal terms" , to be mentioned 
below). In particular, if X is not free in a, MX. [a — > X) — >• X is isomorphic not to a but 
to (cr — > ±) — !■ ±. In short, impredicative encodings in A//2 get extra double negations, 
and the relational parametricity of A2 is not consistent with the equational theory of A/i2 
induced by the CPS semantics. As a consequence, we cannot encode cartesian products in 
A//2, though they can be added easily. Also we cannot express the classical disjunctions 
PBj . though they can be added without changing the target of the CPS translation. 

1.2. Focal parametricity. These results suggest that the CPS translation into parametric 
target calculus gives a reasonable semantic foundation and equational theory for A/i2, which 
is sufficient for obtaining various interesting results. However, here the parametricity is 
used rather indirectly, via the CPS translation; we also wish to have a decent notion of 
parametricity directly within A^2. To figure out what sort of parametricity principle can be 
expected for A/i2, recall the following fact on A2 with parametricity: given a polymorphic 
term M : \IX.F[X] G[X] (with X covariant in F and G) and types ui, (T2, the instances 

^We can say more - we can show that this CPS-semantics is sound and complete with respect to the 
/377-theory of This result, together with further syntactic analysis of this CPS translation, will appear 
in a forthcoming paper with Ken-etsu Fujita. 
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Mai ■■ F[ai] 
diagram 



G[ai] and M<T2 : F[a2] - 



G[a2] obey the naturality, in that the fohowing 

m 



F[CT2] 



Mai 



M (72 



G[f] 



commutes for any f : ai ^ <T2- This is no longer true for Xfi2. For example, let F[a] = (ct — > 
_L) — _L, G[(t] = fj and M be the double-negation elimination (which does not exist in A2); 
then the naturality for arbitrary maps implies inconsistency — we get a ~ (ex ^ _L) ^ _L 
for every a by letting / be the obvious map from cr to (cr —> _L) _L, which is enough to 
kill the theory j20j. Similar result can be observed for other "classical" proofs, e.g. of the 
Peirce law. 

To this end, we look at the focus jHS] {centre (^111121, C-maps fl6J of Xfi2] a focal map 
is no other than an algebra morphism between the the double-negation monad mentioned 
above, i.e., a map making the naturality diagram for the double-negation elimination com- 
mute. It follows that a notion of relational parametricity on A/u2 in which the construction 
of the graph relations is allowed only for focal maps is consistent, as there are nontrivial 
models. Together with the definability (fullness) of the CPS translation, we see that it is at 
least as powerful as the parametricity on the CPS target calculus which we have mentioned 
above, thus gives a powerful principle for deriving the equivalences of terms in Xfi2. (We 
actually conjecture that these two notions of parametricity do agree, but it is open as of 
writing this article.) This principle, which we shall call focal parametricity, should be a 
natural notion of parametricity for Xfi2. We will sketch some use of focal parametricity for 
deriving "free theorems" for Xfi2 syntactically. 



1.3. Towards parametricity for computational effects. At the conceptual and ab- 
stract level, this story closely resembles to the study of linear parametricity and recursion 
15 EO]. In the case of linear parametricity, the graph relations are allowed to be constructed 
only from the linear maps, and a linear map is an algebra map w.r.t. the lifting monad. 
We claim that, just like the linear parametricity gives a solution of accommodating non- 
termination and recursion in the polymorphic setting (as advocated by Plotkin ^^), the 
focal parametricity provides a way of accommodating control features in the polymorphic 
setting. In short: 

linear parametricity focal parametricity 
non-termination first-class control 

As future work, it would be an interesting challenge to find a unifying framework 
of linear parametricity and focal parametricity; it should be useful to have parametric 
polymorphism, recursion, and control at once, as in the realistic programming languages (cf. 
jl4| I18| ) . More ambitiously, we are keen to see an adequate notion of parametricity for 
fairly general "effectful" settings. Possible starting points for this direction might include 
the "parametricity graphs" approach [S] which allows us to deal with parametricity at 
a general level (including the linear parametricity as an instance), and the "category of 
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linear continuations construction" which induces both the CPS translation and Girard 
translation as special cases. See Section 7 for further discussions related to this issue. 

1.4. Construction of this paper. The rest of this paper is organised as follows. In section 
2 and 3 we introduce the calculi and CPS-translation which are the subject of this study. 
In section 4 we consider the implications of the relational parametricity on the CPS-target 
calculus. The focal parametricity is introduced in section 5, followed by examples in section 
6, including focally initial algebras and the type of Church numerals. Section 7 gives an 
alternative characterisation of focus, which suggests a generalisation of this work to a theory 
of parametricity for general effects. We then give some concluding remarks in Section 8. 

2. The calculi 

2.1. The second-order A/^calculus. The second-order A^-calculus, Xfi2, is given as fol- 
lows. We essentially follow Parigot's formulation (with some flavour from Selinger's 
j36j). The types are the same as those of the second-order A-calculus A2: 

a :.= X I fj — > (7 I MX.a 

In a typing judgement P h M : a | A, P stands for the typing context of variables, while A 
for the context of names (continuation variables) . 

P, : o", P' h X : cr | A 

P, x : 0-1 h M : 0-2 I A 
P h Xx^^M : fJi ^ 0-2 I A 

PhM:cri^o-2lA Ph7V:cri|A 
P h M iV : (72 I A 

PhM:cr|A (X0FTy(P,A)) 
P h kX.M : yX.a \ A 

P h M : yX.ai I A 
P h Mo-2 : ai[a2/X] \ A 

P h M : 0-2 I a : cTi, A (/3 : (72 G a : (Ti, A) 
P h fxa''K[p]M : (Ti I A 
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The axioms for the equational theory are again the standard ones — note that we consider 
the extensional theory, i.e. with the ?7-axioms. 

{Xx''.M)N = M[N/x] 

Xx^.Mx = M{x^FV{M)) 

{AX.M)a = M[a/X] 

AX.MX = M{X^FTV{M)) 

tia.[(3]{n-/.M) = ^a.M[/3/7] 

Ha''.[a]M = M{a^FN{M)) 

{^la^^^^^M) N = ^/3'^2.M[[/?](-iV)/[a](-)] 

(^a^^--i.M)a2 = /i/3-i[-2/^l.M[[/3](-a2)/H(-)] 

In the last two axioms, we make uses of so-cahed "mixed substitution"; for instance, 
-^[[/^](~ -^)/['^](~)] means replacing occurances of the form [a]L in M by [(3]{L N) re- 
cursively. 

In the sequel, we frequently use the following syntactic sugar. First, we let _L be the 
type MX.X — the type of falsity. We may also write -kt for cr ^ _L. Using _L, we define the 
"named term" 

[(5]M = tia^.[(3]M : ± 
(where M : a, P : a, with a fresh) and the /i-abstraction 

fia^'.M-.a = fia''.[a]{Ma) 

for M : _L. It follows that /xa'^.[/3]M = /xa'^.[/3]M holds. 

With this _L, we can express the double- negation elimination in A^2 by making use of 
both the polymorphic and classical features: 

Co- = Xm~^^" . fia"^ .m {Xx'^ .[a]x) : -i-kt a 

As expected, we have {Xk^'^ .k M) = M. The properties of _L and will be further 
studied later under parametricity assumptions. 

2.2. Target: the {3, A, — i}calculus. In tthe literature, the second-order A-calculus (A2) 
is often taken as the target of the CPS translation for Xfj,2. Fujita observed that it actually 
suffices to consider a fragment of A2 with negations, conjunctions and existential types as 
a target [7j. In this paper we follow this insight. 

T ::= X \ R \ \ T At \ 3X.T 

-iT can be considered as a shorthand of r ^ i?. The type R can be replaced by 3X.^X AX , 
but for simplicity we keep i? as a type constant. The syntax of terms is a fairly standard one, 
though for conjunctions we employ a slightly less familiar elimination rule (with let-binding) 
so that it parallels that of the existential types. 

T,x : T,T' \- X : T 

T,x : Th M : R 
r h Xx^.M : 

Th M FhTVir 



F h MN : R 
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r h M : n r\- N ■.T2 

r h (M, iV) : Ti A r2 

r h M : Ti A r2 T, a; : n, y : r2 K : rs 
r h let be M in iV : rs 

rhM:ri[r2/X] 
rh (r2,M) : 3Xri 

r h M : 3X.ri T, x : n h iV : rs X 0Fry(r, rs) 
r h let be M in iV : r2 

Again, we employ the standard /3?7-axioms. 

(Ax'^.M) TV = M[N/x] 

Xx^.Mx = M{x^FV{M)) 

let (x,y) be (L,M) in iV = N[L/x,M/y\ 

let be M in iV[(x,y)/z] = N[M/z] 

let (X, x) be (r, M) in iV = N[t/X,M/x\ 

let (X,x) be M in iV[(X,x)/z] = N[M/z] 

3. CPS TRANSLATION 

3.1. The CPS translation. We present a call-by-name CPS translation which can be 
considered as an extension of that introduced by Streicher jlbl 1391 13t}j (rather than the 
translations by Plotkin J^^, Parigot 27, or Fujita ,2J which introduce extra negations and 
do not respect extensionality) . 

X° = X 
{ai ^ (72)° = -^al A al 
{yX.af = 3X.a° 

\x'^\ = x~"^° 

[Ax'^i.M'^2j = A(x^'^i,A;<^2).[A/r]/fc 

|M'^i^'T2 jyaij ^ AA:'^2.|Ml(|iV],A;) 

[AXM<^] = A(X,A:'^°).|Mlfc 

where 

A(x'^,y^).M = Az-^^^.let (x'^,y^) be z in M 

\{X,y^).M = Az^^-^.let {X,y^) be z in M 
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3.2. Soundness. The type soundness follows from a straightforward induction. 
Proposition 3.1 (type soundness). 

r h M : (T I A =^ ^r°, A° h iMj : 



where -iF" is xi : -kt 



!)•••) •^m 



-ifj^ when r is xi : di, 



am-, and A° 



, a„ : a° for A = Qi : o"!, . . . , a„ : fT„. 



□ 



Note that (a[T/X])° = ^"[tVX], lM[N/x\\ = [M][|iV]/x], and also |M[cj/X]] 
[M][(T°/X] hold. Then we have the equational soundness: 



Proposition 3.2 (equational soundness). 

rhM = Af:cj|A =^ 



.r°,A° h [M] = [iVl : -cj° 



□ 



In addition, we have the definability result: 
Proposition 3.3 (fullness). 

^r°, A° h iV : ^ = |M] for some T h M : a | A □ 
This can be proved by providing an inverse translation of the CPS translation, so that 
^r°, A° h P : ^0-° =^ r h : o- I A 

-.r°, A° h c : cj° =^ rhC-M 

-.r°, A° h yl : = 



: ± I A 



r h : _L I A 



hold, where 

Program : -i(T° 
Continuation : cj° 
Answer : R 

as follows. 



P 
C 
A 



X I AA;.^ 

k I (P,C7) I (a°,C7) I let {x,k) be C in C7 | let {X,k) be C7 in C 
PC I let {x, k) beC\n A\ let {X, k) be C in yl 



X 



(A/f^ .A)-i 

(let {x, k) be Ci in Cs)"^ 
(let (X,A;) be Ci in Ca)-^ 



(PC)-i 

(let (x,A;) be C in yl)-i 
(let {X,k) be C in .4)-^ 



^lk".A-^ 

M-] 

c-^[- p-1] 

C^\\x.iik.C2^[-]] 

c-i[p-i] 

C-i[Ax./xA;.^-i] 



This can be considered as a "continuation-grabbing style transformation" in the sense of 
Sabry It follows that for any ^r°,A° h M : there exists ^r°,A° h P : 

generated by this grammar such that P = M — it suffices to take the /3- normal form |2j. 
Moreover we can routinely show that [P~^] = P. Thus the CPS translation enjoys fullness: 
all terms are definable modulo the provable equality. This definability is important for 
relating the parametricity principles for the source and target calculi. 
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3.3. A semantic explanation. Here is a short explanation of wiiy this CPS translation 
works, intended for readers with category theoretic background — on the "categories of 
continuations" construction |161 1391 136j , and on fibrations for polymorphic type theories 
jl7j . As a response category C with a response object R induces a control category 
with R'^{X,Y) = C{R-^ , R"^), a fibred response category with finite products and simple 
coproducts (for existential quantifiers) induces a fibred control category with finite products 
and simple products (for universal quantifiers). Let us write Cr for the response category 
over the type-context F. We assume that the weakening functor vr* : — ^ CrxA has a left 
adjoint 3a ■ CrxA — > Cr subject to the Beck-Chevalley condition. Thus 

CrxA(A,7r*(y))~Cr(3^(A),y) 

We then have 

R^^x^{tt*{X),Y) = CvxAiR'^'^^KR^) 

^ CrxA(l^,i2^^*'"') 

^ CrxA(l^,vr*(fl^'')) 

^ Ct{3a{Y),RR'') 

^ Cr(i?^,ii^-4(^)) 
= i?cr(x,3^(y)) 

Hence tt*, regarded as the weakening functor from R'^^ to R'^^^^, has a right adjoint given 
by 3a, which can be used for interpreting the universal quantifier. Our CPS transformation 
is essentially a syntactic interpretation of this semantic construction. 

4. CPS SEMANTICS WITH THE PARAMETRIC TARGET CALCULUS 

4.1. Parametricity for the target calculus. As the target calculus can be seen as a 
subset of A2 (via the standard encoding of the conjunctions and existential types), we can 
define the relational parametricity for the target calculus in the same way as for A2, e.g. 
logic for parametricity |^ , system R [J , or system P . One may directly define the 
parametricity principle (often called the simulation principle) for the existential type, see 
for example |31j . 

In this paper we only consider the relations constructed from the graphs of terms- 
in-context, identity, and (T*'s obtained by the following construction, which we shall call 
"admissible relations" . 

Among admissible relations, the most fundamental are the graph relations. Given a 
term / (x) : T2 with a free variable x : ti we define its graph relation (x h / (x)) : ti <-> T2 
((/) for short) by u (/) u iff / (n) = v. 

Given a type r whose free type variables are included in Xi, . . . , A„ and admissible 
relations si : ti ^ r(, . . . , s„ : ^ r^, we define an admissible relation r* as follows. 

• X* = Si-.Ti^T^ 

• R* is the identity relation on the terms of type R 

• (-it)* : -■r[Ti/Ai, . . . ] ^ ^t[t[/Xi, . . .] is the relation so that / (^r)* g iff xr* y 
implies f x R* gy (hence f x = gy) 

• {tAt')* : {tAt')[ti/Xi,. . .] ^ {tAt')[t{/Xi,...] is the relation so that u (r At')* v 
iS u = {x,x'), V = {y, y') and xt* y, x' t'* y' 

• {3X.t)* :3X.t[ti/Xi,...] ^ 3X.t[t[/Xi, . . .] is the relation so that n (3 A.r)* w iff 
u= {t',x), V = {t" ,y) and xT[r/X]*y for some admissible r : t' ^ t" 
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In the last case, the relation r[r/X]* : t[t' /X] ^ t[t" / X] is defined as r* with X* = r. 
One may further define admissible relations -r, r A s and 3X.r for admissible r, s, so that 
(^r)* = ^T*, (r A t'Y = t* a r'* and (3X.t)* = 3X.T* hold. 

Let idr : r <-> r be the identity relation on the terms of type r. The relational para- 
metricity asserts that, for any r whose free type variables are included in Xi, . . . ,Xn and 
Ti, . . . ,r„, M : t[ti/Xi, . . . ,Tn/Xn] implies M t* M with Si = idr^. 

Its consistency follows immediately from that of the parametricity for A2. 

Proposition 4.1. As consequences of the parametricity, we can derive: 

(1) 3X.X gives a terminal object T with a unique inhabitant *, so that for any M : T 
we have M = *. 

(2) 3X.^{t a X) a X (which could be rewritten as 3X.{X -ir) A X) gives a final 
coalgebra i'X.^t of AX.—<t where X only occurs negatively in r. 

(3) (as an instance of the last case) the isomorphism 3X.-i(t A X) A X ~ -ir holds if X 
does not occur freely in r. □ 

Their proofs are standard, cf. papers cited above PTI III HHIIS]. 

Below we will see the implications of these parametricity results on the target calculus. 
We refer to the A//2-theory induced by the CPS translation into this parametric target 
calculus as Xfj,2^ . 

4.2. The falsity type. As a first example, let us consider the falsity type _L = VX.X in 
A/u2. We have 

_L° = (yx.xy = 3X.X ~ t 

and 

(a ±)° = ^ia° A ±°) ~ ^{a° A T) ~ 
Since 3X.X is terminal (with a unique inhabitant *) in the parametric target calculus, 
we obtain |/^a'^.M] = Xa"" .{Mj* and |[/3]M] = An^^-^.[[M]/?, which coincide with Stre- 
icher's translation. As a consequence, the following equations on the named terms and 
//-abstractions are all validated in Xfi2^. 

(fia^^^^^M) N = fif3''KM[[l3]{-N)/[a]{-)] 

[a'K/xa'^.M) = M[a'/a] 
[a-^]M = M 

Thus the type _L serves as the falsity type as found in some formulation of the A/i-calculus. 
In addition, we can show that {a, : {{a — > _L) ^ _L) ^ o") is an algebra of the double- 
negation monad ((— ) — > _L) ^ ± on the term model. 

4.3. Initial algebra? A more substantial example is the "initial algebra" iJ,X.F[X] = 
yX.{F[X] X) — > X, with X positive in F[X] (here we see an unfortunate clash of ;u's for 
the name-binding and for the fixed-point on types, but this should not cause any serious 
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problem). We calculate: 

{liX.F[X])° = (VX(F[X] ^ X)^ X)° 

= 3X.^{^F[X]° AX) AX 

~ i^X.^^F[X]° 

~ -^^F[X]°[uX.^^F[X]yX] 

^ ^^F[Xn{fiX.F[X]r/X] 

= ^^{F[^,X.F[X]]r 

^ iiF[f,X.F[X]]^±)^±r 
This suggests that nX.F[X] is isomorphic not to F[fj.X.F[X]] but to its double negation 
{F[fiX.F[X]] ^ _L) — > _L. One might think that this contradicts the standard experience on 
A2 with parametricity, where we have an isomorphism in : fiX.F[X]. Since 

A/u2 subsumes A2, we have this in in A/u2 too; however, it should not be an isomorphism, 
regarding the CPS interpretation above (otherwise it causes a degeneracy). The truth is 
that, in A/x2^, the term 

in« = Am./xa.m(Ax.[a](inx)) : {{F[^xX.F[X]] ^ ±) ^ ±) ^ fiX.F[X] 

is an isomorphism. It still is not an initial algebra of ] — > -L) — > -L; we shall further 
consider this issue later. For now, we shall emphasize that the parametricity principle for 
A2 should not be used for A//2, at least without certain constraint — otherwise in would be 
an isomorphism, hence a degeneracy follows (because we have (cr — > _L) — > _L ~ a for every 
a). 



4.4. Other impredicative encodings. Recall other impredicative encodings of logical 
connectives: 

T = VX.X ^ X 
ai A (72 = VX.(cri X) ^ X 

cTi V CT2 = VX(ai X) ^ {a2^ X) ^ X 

3x.a = vy.(vx.(cr ^ y)) ^ y 

Their CPS translations into the parametric target calculus satisfy: 

{ai A 0-2)° ~ ^(^(Ti° A ^cr^) 
{ai V 0-2)° ~ ^^crj A ^^cr^ 
{3X.a)° ~ -,3X.^a° 

As easily seen, these defined logical connectives in the source calculus do not obey the 
standard universal properties as in the parametric models of A2. In short, they are all 
"double-negated", hence amount to some classical encodings: 

• o"! A(T2 is not a cartesian product of ai and (72, but isomorphic to (ui — > fT2 ^ X) — > 
_L. It is possible to add cartesian product types ai x cr2 to \fi2, but then we also need 
to add coproduct types ti + T2 to the target calculus, so that (ui x (72)° = crj + fig 
and ai Aa2 ~ ~'~'(o"i x (72). 

• T is not a terminal object, but isomorphic to _L ^ _L. We can add a terminal object 
1 to A;^2 and an initial object to the target, so that 1° = and T ~ -i-il. 

• fJi V(T2 is not a coproduct of ai and (T2, but isomorphic to (fii ^ ±) — > ((T2 ^ _L) — > 
_L. If there is a coproduct ai + (T2, then it should follow that o" V r ~ -1-1(0" + r). 
On the other hand, it is not possible to enrich Xfi2 with an initial object without 
a degeneracy, cf. Selinger's note on control categories Alternatively we might 
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add the "classical disjunction types" aipa2 (HHI with {aipa2)° = al A a2 — hence 
ai ^ a2 — ~'0'ipo"2 and cJi V (72 ~ -i-i(Tip-i-ic72- We note that _L = \/X.X serves as 
the unit of this classical disjunction. 
• 3X.a does not work as the existential type; it is isomorphic to -iVX.-kt. 

4.5. Answer-type polymorphism. Note that the answer type R has been considered 
just as a constant with no specific property. In fact we could have used any type for R — 
Everything is defined polymorphically regarding R. Thus we can apply the "answer-type 
polymorphism" principle (cf. in particular, a closed term of type a in A/u2 can be 

considered to be sent to a A2-term of type WR.^a". This way of reasoning goes behind the 
parametricity principle for our target calculus, but it is justified by the parametricity of A2. 
For instance, consider the type T = WX.X — > X of A^2. We have 

yR.^T° ~ \/R.^R 

~ yR.R^R 
~ 1 

in A2 with parametricity. This means that, although T is not a terminal object in A^2, it 
has a unique closed inhabitant. Similarly, we have Vi?.-i_L° ~ Vi?.i? ~ 0, thus we see that 
there is no closed inhabitant of _L in Xfi2. 

However, such reasonings based on the answer-type polymorphism become much harder 
for more complicated types. The force of answer-type polymorphism in this setting seems 
still not very obvious. 

5. Focal parametricity 

We have seen that the CPS semantics with respect to the target calculus with re- 
lational parametricity induces a reasonable equational theory Xfi2^ . However, here the 
parametricity is used rather indirectly, via the CPS translation. We now consider a notion 
of parametricity which is directly available within A^2. 

5.1. CPS translating relations. The key of formulating the relational parametricity is 
the use of graph relations of terms (considered as representing a functional relation): without 
graph relations, relational parametricity reduces to just the basic lemma of the (second- 
order) logical relations. On the other hand, it does not have to allow all terms to be used 
for constructing relations. In fact, in linear parametricity 1^01 only linear (or strict) maps 
are allowed to be used for constructing graph relations, and this choice allows a weaker 
notion of parametricity which can accommodate recursion. Naturally, we are led to look 
for a characterisation of A/i-terms which can be used for graph relations without breaking 
the soundness with respect to the CPS semantics into the parametric target calculus. 

Now suppose that we are allowed to use the graph relation (/) : cti <-> (T2 of a term 
X : ai h f{x) : a2- To ensure the soundness of the use of this graph relation, we shall consider 
the CPS translation of such relations. For instance, we hope that (/) will be sent to a relation 
between types and a° in the target calculus. However, since x : -icrj h [/(x)] : ^0-2, we 
have some relation <-> only when |/(x)] = Xk.x {g (k)) for some k : a2 \~ g{k) : in 
the target calculus. If there is such g, we can complete the translation of the relations and 
reduce the parametricity principle on Xfj,2 to the parametricity on the target calculus. 
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Fortunately, there is a way to characterise such "translatable" /'s in the A^-calculus 
without performing the CPS-translation (modulo a technical assumption on the CPS-target, 
known as "equalising requirement" |22j). It is the notion of "focus", which we now recall 
below. 



5.2. Focus. 



Definition 5.1. A Xfj,2-term M : ai ^ a2 is called focal if it is an algebra morphism from 
(o"i,C(j^) to (o"2,C(j2), i.e. the following diagram commutes. 



(^1 



_L 



(0"2 



_L 



M 



<72 



That is: 



M {iid'\k{\x''\\a\x)) = fip'^^k {Xx''K[f3]iM x)) : a2 

±.2 



holds for any k : (cJi _L) 

In any A/i2-theory, focal terms compose, and the identity Xx'^ .x is obviously focal. So, 
the (equivalence classes of) focal maps form a category. Hereafter we shall call it the focus 
of the A/u2-theory. 

While this characterisation of focal maps is concise and closely follows the semantic 
considerations in |^ , there is a subtle problem; the /Jry-axioms of Xfi2 are too weak to 
establish the focality of some important terms. This is because we have used the polymor- 
phic feature of Xfi2 for expressing — it involves the falsity type _L = \/X.X, but the 
axioms of Xfi2 do not guarantee that _L does work properly. If there were not sufficiently 
many focal maps, the parametricity principle restricted on focal maps would be useless. 

To see this issue more clearly, we shall look at another "classical" combinator (the 
Peirce law) 

Pai,a2 = Xm.fia'^'^ .[a]{m (Xx'^'^ .fi/S'^^ .[a]x)) : ((cJi 02) cri) ai 
which does not make use of polymorphism, and the "abort" map (Ex Falso Quodlibet) 

A(j = Xx'^.xa : _L ^ cr 

which is defined without the classical feature. It is well known that the double-negation 
elimination is as expressible as the Peirce law together with Ex Falso Quodlibet, see e.g. 
[2]. This is also the case at the level of (uniformity of) proofs. Let us say that M : cJi — > (T2 
is repeatable if 

[ai as) ai {a2 0-3) ^ 



0-1 



M 



0"2 



^In |16l . a focal map from ai to _L is called a "C-term of type ai". C-terms of type ai with a free name 
of 1T2 correspond to focal maps from ai to o"2, thus these notions (and the associated constructions of the 
CPS target categories via C-terms (C-maps) [161 and via focus [36 j ) are essentially the same. 
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commutes for each (73; and discardable if 

_L 



^1 — ^ '^2 

M 



commutes. 



Proposition 5.2. In a A/i2-theory, M : cji ^ cj2 is focal if and only if it is both repeatable 
and discardable. □ 

We note that the corresponding result in the call-by-value setting has been observed by 
Fiihrmann 8^ as the characterisation of algebraic values as repeatable discardable expres- 
sions. Here we follow his terminology. 

This reformulation allows us to see that only the second diagram of A's involves the 
polymorphically defined _L and needs to be justified by additional conditions.^ On the other 
hand, the first diagram of P's is not problematic, as it does not make use of polymorphism 
at all. 



5.3. Additional axioms. To this end, we add more axioms to before thinking about 
parametricity. They are 

(1) Xx'^'^'^"'^ .X N : (o"! — > (T2) o"2 is discardable for any : ai 

(2) Xx^^''^ .X ai : VX.cr a[ai/X] is discardable for any a and ai 

(3) Ax'^.[q]x : cj ^ _L is discardable for any a : a 
which are equivalent to asking 

(1) M (cji a2)N = Ma2 for any M : _L and N : ai 

(2) M (VXa) ai=M {a[ai/X]) for M : ± 

(3) [a]{Ma) = M for M : ± and a : a (a FN{M)) 
and also equivalent to 

(1) (fia^^^^KM) N = fiP''KM[[P]{-N)/[a\{-)] 

(2) (/xa^^-i.M)a2 = /i/3'^i['^2/^].M[[/3](-a2)/[a](-)] 

(3) [a']{^la'' .M) = M[a'/a] 

Note that A/u2^ discussed in Section 4 satisfies these conditions. Also we shall note that 
.xo"i, Ax"*" . [a] (x cr) are all repeatable in A/u2. Together with these 
additional axioms, they become focal. (Alternatively, we could have _L as a type constant 
and assume the standard axiomatization of A^-calculus with the falsity type (16t EH] — in 
that case C is defined without polymorphism, and this problem disappears.) 

Below we develop the focal parametricity principle on top of Xfi2 with these additional 
axioms. 



This problem was overlooked in the preliminary version of this paper [15} where it was wrongly assumed 
that repeatability alone would imply focality. 
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5.4. A parametricity principle for A/i2. Given a focal / : cri ^ (T2 we define its graph 
relation (/) : ui <-> (T2 by n (/) u iff / u = v. Also, let id^ : o" ^ o" be the identity relation 
on the terms of type a. In this paper we only consider the relations given by the graphs 
of focal maps, identity, and (T*'s obtained by the following construction, which we shall call 
"focal relations". 

Given a type a whose free type variables are included in Xi, . . . , A„ and focal relations 
si : ai <^ a'l, . . . , Sn ■ (Tn cr'^, we define a focal relation a* as follows. 

• X* = Si : Ui ^ a[ 

• {a ^(t'Y : ((7^(t')[(7i/Ai, ...]<-> (it— >cj')[(T^/Ai, . . . ] is the relation so that / (c — > 
fj')* g \S xa* y implies (/ x) a'* (g y) 

• (VA.cr)* : VA.(t[(Ti/Ai, . . . ] ^ VA.(t[(T^/Ai, . . . ] is the relation so that u (VA.o")* v 
iff [ua') a\r / X]* {v a") holds for any focal relation r : a' ^ a" 

The focal relational parametricity asserts that, for any a whose free type variables are 
included in Ai, . . . , A„, M : a[ai/Xi, . . . , cj„/A„] implies M a* M with Si = id^.. 

Thus the only departure from the standard parametricity principle is the condition that 
the graph relation construction is allowed only on focal maps. Note that this restriction 
is necessary; if we apply parametricity to polymorphic terms AX.Cx or AX.Px^a, we will 
get the naturality diagrams above for any term which is allowed to be used for the graph 
relation construction. 

5.5. On consistency and soundness. The consistency of focal parametricity (in the sense 
that the equational theory of A//2 with focal parametricity is not trivial) follows from the 
fact that there are non-trivial parametric models of A2 in which there is an object R so 
that the continuation monad Tr = R^^ satisfies the "equalising requirement" i.e. each 
component ijr ■ t ^ Tt of its unit is an equaliser of r]TT and Trfr. (Here we employ the 
syntax of the CPS target calculus as an internal language for such models, where the CPS 
translation is considered to give a semantic interpretation.) In such models, for any focal 
term / : fii — > (T2, there exists a unique y : H g{y) : such that {fx} = Xy.x {g{y)) (cf. 



Using this fact, given a focal relation r : fJi ^ (T2, we construct an admissible relation 
r° : (T2 <-> fjf as follows. For a graph relation (/) : cri (T2, we let (/)° = {g) : (T2 erf 
where g is the unique map as given above. For a*, a*° is defined by straightforward 
induction: {a a')*° = -^a*° A a'*° , (VA.(t)*° = 3X.a*° (where the parameter relations Sj 
are replaced by s°). 

Theorem 5.3. In such a model, given a focal relation r : ai ^ (T2, MrN implies 



We do not know if the term model of the parametric target calculus satisfies the equal- 
ising requirement — if so, by the definability result, the parametricity on the target and the 
focal parametricity on A/i2 should agree. Alternatively we should consider a refined target 
calculus with a construct ensuring the equalising requirement, as detailed in Taylor's work 
on sober space ("a lambda calculus for sobriety" |U). For now, we only know that one 
direction is true (thanks to the definability). 

Theorem 5.5. An equality derivable in Xfi2^ is also derivable in \fi2 with focal para- 
metricity. □ 



m)- 




□ 



□ 
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6. Examples 

We show that certain impredicative encodings in Xfi2 satisfy universal properties with 
respect to the focus using the focal parametricity principle. 

6.1. Focal decomposition. We start with a remark on the following "focal decomposition" 
[HH] (analogous to the linear decomposition ai 02 =!<7i — ° (Ti ^3): there is a bijective 
correspondence between terms of a\ a2 and focal terms of -i-iO"i — > o"2 natural in ai and 

focal (T2. 

/ : -i-io"! (72 focal 
f = f°Va,= Ax-i ./ {Xk.k x):ai^ 02 

g : Q-l ^ 0-2 

g" = C(J2 o -i-ig = \m.^if3"'^ .m [Xx'^^ .[(5]{g x)) : ^-icri 02 focal 

Proposition 6.1. = g for any g : o"i — > fT2, while f = f holds for / : -i-kti — o"2 if 
and only if / is focal. □ 



6.2. Falsity as a focally initial object. Now we shall proceed to reason about impred- 
icative encodings in A/i2. The first example is the falsity _L = \/X.X. 

First, we note that Aa- = Xx-^.x cr : _L —> o" is focal. The parametricity on _L says x -L* x 
for any x : ±. Since (Aa-) : _L ^ a, we have x _L (Aa-) x cr, i.e. Ao- (x _L) = x J^a = x a. By 
extensionality we get x = x 1. for x : ±. 

Now suppose that g : _L — s- o" is focal. Again by the parametricity on _L we know x _L* x 
for any x : _L, hence xJ-{g)xa. Thus g(x_L) = xa; but x = x_L, so we have gx = xa, 
hence g = Xx-^.xa = A^. 

So we conclude that A^ is the unique focal map from ± to a. This means that _L is 
initial in the focus. 



6.3. Focally initial algebra. As in A2, there is a fairly standard encoding 

l_iX.F[X] = yx.{F[x] X)^ X 

fold^ = Aa^H-'^.Ax'^^-^I^l.xcra : (F[c7] ^ (j) ^ ^XF[A:] ^ (J 
in = Xy.AX.Xk^^^^^^.k (F[foldx A:] y) : F[fiX.F[X]] nX.F[X] 

for which the following diagram commutes (just by /5-axioms). 



F[f,X.F[X]] 



HX.F[X] 



Fffold a] 



F[a] 



fold a 



a 



Therefore in is a weak initial -F-algebra. However, as we noted before, in is not an initial 
F-algebra — in fact it is not even an isomorphism. By applying the focal decomposition 
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above, we obtain the commutative diagram 

^^F[^X.F[X]\ 



IjlX.F[X] 



-.^Fffolda^ 



fold 



a 



for any focal a : ^^F[a] a. We show that fold is the unique focal map making this 
diagram commute, thus in" is an initial -i-i-F[— ]-algebra in the focus. 

We sketch a proof which is fairly analogous to that for the corresponding result in 
parametric A2 as given in ,1 . First, from the parametricity on fiX.F[X] we obtain that 

V 7-ir-iAi fold a 

F[ai] -^-^ ox 



lxX.F{X\ 



oi 



h implies 



0-2 



HX.F[X] 



fold 6 



0-2 



whenever h is focal. We also have M {p,X.F[X]) in = M for any M : fj,X.F[X] as a corollary 
(thanks to extensionality) . By combining these observations, now we have the desired result. 
That is, if h : fiX.F[X] ^ o" is focal and satisfies /i o in" = a o then 

foldo-a^'x = /i (fold^x.F[x] in a^) 
= hlx{tiX.F[X])\n) 
= hx 

so by extensionality we conclude foldo- a!' = h. This also implies that in" is an isomorphism, 
with the inverse given by fold-,_,^x.F[x] ("'"'-^[ifi])- 

As a special case, by letting F be a constant functor, we obtain isomorphisms between 
(cr — s- _L) — > _L and MX. [a X) X where X is not free in a. With some further 
calculation we see that in" = Xm.AX.Xk'^^^ ./jLa-^ .m (Xx'^ .[a]{k x)) is the inverse of Xn.n _L : 
(yX.{a X) — > X) — > ((7 — > _L) ^ _L. We will see more about this isomorphism in Section 
7. 



6.4. The type of Church numerals. We conclude this section by a remark on the type 
of Church numerals N = MX.X (X ^ X) — > X. Recall that, in A2 with parametricity, 

N is an initial algebra ofVX.X — > ( > X) ^ X ~ 1 + (— ), i.e. a natural numbers object, 

whose closed inhabitants are equal to the Church numerals S" which can be given by, as 
usual, 

= AX.Xx^f^^^.x : N 

S = Xn^.AX.Xx^f^^^.f{nXxf) : N^N 

It is no longer true in A/i2, as observed by Parigot, as there are closed inhabitants which 

are not equal to Church numerals, e.g. 

^a^.[a](S {fip^.[a]0)) = AX.Xx^ f^^^ .fxa^ .[a]{f {^(3^ .[a]x)) : N 

In contrast, N in Xfi2 with focal parametricity is a focally initial algebra of yX.X ^ ( 

X) ^ X ~ _L — > ( > _L) — > _L; this can be shown in the same way as the case of focally 
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initial algebras. Spelling this out, we have a focal map in : (_L — > (N — > _L) — > _L) — > N, 
and for any focal : (_L — (cr — _L) ^ _L) — cr there exists a unique focal foldo- 5 : N ^ cr 
making the following diagram commute. 



N 



±^(folda 9^±}- 



foldtr 5 



To see this, it is useful to observe the following bijective correspondence (a variant of the 
focal decomposition): given focal : (± ^ (cr ^ ±) ^ ±) — > a we have 

go = giXx^k^-^^.x) : a 

and conversely, for a : fj and f : a ^ a we have a focal map 

cpaj = Am^^('^^^)-^./xa^m([a]a)(Ay^[a](/y)) : {± ^ {a ^ ±) ^ ±) ^ a 

It follows that {(paj)o = a and {<Paj)s = f hold for any a and /, while (Pgo,gs = 9 for 
focal g. Now wc define 

foldA5 = Xn^.nAgogs : N ^ 

in = ^o,S : (^^(N^±)^±)^N 

It then follows that the diagram above commutes — and the focal parametricity implies 
that fold^ g is the unique such focal map. 



7. A GENERAL CHARACTERISATION 

So far, we concentrated on the relational parametricity for A/i2. One may feel that 
this story is very specific to the case of A//2, or of the first-class continuations, and is not 
immediately applicable to other computational effects. 

In this section we describe an alternative characterisation of the focus, which makes 
sense in any extension of A2. Namely, we show that, any A2-theory is equipped with a monad 
L, such that each type is equipped with an algebra structure — and then see that, in the 
case of A/x2 with focal parametricity, this monad L is isomorphic to the double-negation 
(continuation) monad, and focal maps are precisely the algebra maps of the monad L. 
This suggests a natural generalisation of this work to a theory of parametricity for general 
computational effects. 

7.1. A monad on A2. Let La = \/X.{a — > X) — > X (with no free X in a), and define 

r/o- = Xx'^.AX.Xk'^^^ .kx : a ^ La 

= Xz^^''AX.Xk''^^.zX{Xy^''.yXk) : L'^a ^ La 
L{f) = Ay^'^i.AXA/i^^^^.y X (/i o /) : Lai ^ La2 (/ : cxi ^ (72) 

Proposition 7.1. On the term model of any A2-theory, {L,r],iJ,) forms a monad. □ 
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One might think that this is trivial as La is isomorphic to a when we assume the 
standard parametricity. This is not always the case however, as we have already seen, 
La 2± (cr _L) —> _L in the focally parametric A/x2. 

Proposition 7.2. = Xy^'^-y cf (Ax^'.x) : La — cr is an algebra of the monad (L, 77, /u). □ 

Thus each a is canonically equipped with an algebra structure Qg-- Again one may think 
that this is trivial, as under the standard parametricity is just an isomorphism with ry^ 
being an inverse. However, again it is not the case in a non-trivial A/x2-theory. 

Now we define the notion of linear maps in terms of the monad L and the canonical 
algebras a^- — this is close to what we do in (axiomatic) domain theory for characterising 
the strict maps, and also in control categories for characterising the focal maps. 

Definition 7.3. / : ci — > C72 is linear when it is an algebra morphism from 
/ o ao-i = ao-2 o L{f) holds. 

T r 
ivCTi »- Lao 



oi^^a. 

That is, / is linear when 

/(M<7i {\x''\x))=Ma2f 
holds for any M : La\. We may write f a\ —o a^ for a linear / : C7i — > (T2. Under the 
standard parametricity every / : ui — > (T2 is linear, while for focal parametricity on A/Lt2 
we have that linear maps are precisely the focal maps (see below). In passing, we note the 
following interesting observation. 

Proposition 7.4. In a A2-theory, the following conditions are equivalent. 

(1) algebras on a\ — ^ (T2 and VX.o" are determined in the pointwise manner, i.e. 

oia^^a:, = A/^(-i^-2).Ax-i.a,jL(A5-i--^5x)/) 
avxa = Ax-^(^^-'^).AXa<,(L(A/^-'^.yX)x) 

(2) Xx'^^^'^'^ .X N is linear for any N : ai, and Xx^^''^ .x ai is linear for any a and ai. □ 

Note that they are very close to the "additional axioms" for A//2 discussed in Section 5. 
Also note that, if a A2-theory satisfies one of these conditions, and aLa agree for every 
a. and we have a "linear decomposition" correspondence between the maps of ai — > a2 and 
the linear maps of Lai — ^ C2- 

7.2. Focal maps as algebra maps. Now we shall consider the double-negation monad 
-1-1(7 = (cr _L) ± on A/x2 with focal parametricity. 

Proposition 7.5. In a focally parametric A/x2-theory, ■ -<-<a — > cr is an algebra of the 
double-negation monad. □ 

Corollary 7.6. / : ci — > (T2 is focal if and only if it is an algebra map from C^^ to C^^ ■ D 

Proposition 7.7. The monad (L, 77, n) is isomorphic to the double negation monad in the 
focally parametric A/Lt2, with Ax^'^.x_L : La ^ -i-io". □ 
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Proposition 7.8. The following diagram commutes in a focally parametric A/Lt2-theory: 

La ~'~'<7 




□ 

Corollary 7.9. / : fii — > (72 is linear if and only if it is focal. □ 

Thus a focal map in a focally parametric A/u2-theory can be characterised just in terms 
of the monad L which is defined for arbitrary A2-theory. 

We believe that the monad L deserves much attention. It has been considered trivial, 
but now we know that it does characterise an essential notion (focus) in the case of relational 
parametricity under the presence of control feature. In fact, the story does not end here; 
under the presence of non-termination or recursion, L behaves like a lifting monad — indeed 
it is a lifting in the theory of linear parametricity, because 

La = yX.{a^X)^X = yX.l{la ^ X) ^ X ~ !c7 

where the last isomorphism follows from the fact that yX.\{F[X] X) X gives an 
initial algebra of -F, cf. 1^. 

These observations suggest that there exists a general framework similar to (axiomatic 
or synthetic) domain theory where the lifting monad can be replaced by any strong monad 
— a continuation monad for example — on which a theory of parametricity for general 
computational effects can be built. Recently, Alex Simpson has made a progress in this 
direction, by developing a two-level polymorphic type theory (for interpreting types and 
algebras of a monad) in a constructive universe jHHl- His work fits very well with the case 
of linear parametricity for recursion; it is plausible that it also explains the case of focal 
parametricity for first-class control. 



8. Conclusion and future work 

We have studied the relational parametricity for A/i2, first by considering the CPS 
translation into a parametric fragment of A2, and then by directly giving a constrained 
parametricity for Xfi2. The later, which we call "focal parametricity", seems to be a natural 
parametricity principle under the presence of first-class controls — in the same sense that 
linear parametricity works under the presence of recursion and non-termination. 

There remain many things to be addressed in future. In the previous section, we already 
discussed a research direction towards a relational parametricity for general effects. Below 
we shall briefly mention some future work more closely related to the main development of 
this paper. 

Firstly, we are yet to complete the precise comparison between focal parametricity on 
Xfj,2 and the parametricity on the CPS target calculus. This involves some subtle interaction 
between parametricity and a technical condition (equalising requirement). 

Secondly, we should study focal parametricity for extensions of A^2. As we observed, 
Xfi2 with focal parametricity does not have many popular datatypes, e.g. cartesian products, 
and classical disjunction types which however can be added with no problem. Adding 
general initial algebras is problematic (having an initial object already means inconsistency), 
but it might be safe to add certain carefully chosen instances. On the other hand, flnal 
coalgebras seem less problematic, though a generic account for them in A/u2 is still missing. 
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Perhaps we also need to consider the CPS translation of such datatypes (cf. in a 

systematic way. 

An interesting topic we have not discussed in this paper is the Filinski-Selinger duality 
[HI Eni between call-by-name and call-by- value calculi with control primitives. In fact it is 
straightforward to consider its second-order extension: in short, universal quantifiers in call- 
by-name (as studied in this paper) amount to existential quantifiers in call- by- value. We 
are not sure if the call- by- value calculus with existential quantifiers itself is of some interest. 
However, it can be a good starting point to understand the call-by-value parametric poly- 
morphism (possibly with computational effects), from both syntactic and semantic aspects. 
In particular, it should provide new insights on the famous difficulty of accommodating 
first-class continuations in ML type system jllj . 

Finally, we also should consider if there is a better (ideally semantic) formulation of 
focal relations. In this paper we only consider those coming from focal maps, but it seems 
natural to regard a subalgebra (of the double- negation monad) of Co-ixo-2 ^ ^ focal relation 
between cji and (T2 , where we assume the presence of cartesian product ai x (J2 . This looks 
very closely related to Pitts' TT-closed relations for A2 with recursion |2H]- 
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